/*  sfosubsl.cpp  by K.Tsuru  */
// function ID = 708  DRADIX
/*****************************************************
SFraction class
It provides the substitution operator SFraction=SLong.
******************************************************/
#ifndef SN_H
#include "sn.h"
#endif
SFraction& SFraction::operator=(const SLong& a){
    num = a;    den = 1;        reduceDone = true;
    RadixCheck();
    return *this;
}